From 918f30b5f2d4232890eb1c5dd3306aa68272f57b Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 29 Nov 2000 19:22:18 +0000 Subject: [PATCH] (enriched-face-ans): Use face-attribute instead of face-foreground and face-background. --- lisp/enriched.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/enriched.el b/lisp/enriched.el index 804048b6173..8f4bf4f0392 100644 --- a/lisp/enriched.el +++ b/lisp/enriched.el @@ -356,8 +356,8 @@ One annotation each for foreground color, background color, italic, etc." (list (list "x-color" (substring (symbol-name face) 3)))) ((string-match "^bg:" (symbol-name face)) (list (list "x-bg-color" (substring (symbol-name face) 3)))) - ((let* ((fg (face-foreground face)) - (bg (face-background face)) + ((let* ((fg (face-attribute face :foreground)) + (bg (face-attribute face :background)) (props (face-font face t)) (ans (cdr (format-annotate-single-property-change 'face nil props enriched-translations)))) -- 2.30.2